home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 28 / Mail_Madness_28_200x_-_Side_B.d64 / mathematik.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  186 lines
  1. 0 rem   mathematische formeln
  2. 1 rem
  3. 2 rem           von
  4. 3 rem   raimund     dreissig  (c)1987
  5. 4 rem
  6. 5 printchr$(142)chr$(8):poke53280,11:poke53281,0:goto21
  7. 6 z=10:a$="":ifz1=1thenz=20
  8. 7 poke204,0:getx$:ifx$=""then7
  9. 8 ifx$="_"thenprint" ":poke204,1:goto21
  10. 9 a=asc(x$):ifa=20anda$=""then7
  11. 10 ifa>=65anda<=70then14
  12. 11 ifa=20thenprint"!  !!";:a$=left$(a$,len(a$)-1)
  13. 12 ifa=13thenprint" ":poke204,1:goto16
  14. 13 ifa<48ora>57then7
  15. 14 iflen(a$)>z-1then7
  16. 15 printx$;:a$=a$+x$:goto7
  17. 16 ifa$=""then21
  18. 17 forw=1tolen(a$):x$=mid$(a$,w,1):ifasc(x$)>64andasc(x$)<71then20
  19. 18 next
  20. 19 ifval(a$)=0then21
  21. 20 return
  22. 21 z1=0:print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  23. 22 print"[145][180]      m a t h e m a t i s c h e       [170]"
  24. 23 print"[145][180]                                      [170]"
  25. 24 print"[145][180]           f o r m e l n              [170]"
  26. 25 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":print"[153]m e n u e :"
  27. 26 print"[159] 1 [146] : [158]primzahlen"
  28. 27 print"[159] 2 [146] : [158]primfaktoren"
  29. 28 print"[159] 3 [146] : [158]faktorenzerlegung"
  30. 29 print"[159] 4 [146] : [158]groesster gem.teiler (ggt)"
  31. 30 print"[159] 5 [146] : [158]kleinstes gem.vielfaches (kgv)"
  32. 31 print"[159] 6 [146] : [158]zahlenumwandlung"
  33. 32 print"[159] _ [146] : [154]menue"
  34. 33 print"[159] e [146] : [150]ende"                                         
  35. 34 getb$:ifb$=""then34
  36. 35 ifb$="e"thenprint"[147]":end
  37. 36 ifval(b$)=0then21
  38. 37 onval(b$)goto39,112,94,75,56,132
  39. 38 goto34
  40. 39 print"[147]";:forw=0to119:print"[154] ";:next
  41. 40 print"[154][145][145]primzahlen"
  42. 41 print"obere grenze > 5  ";:gosub6:ifasc(a$)>64andasc(a$)<71then39
  43. 42 ifval(a$)<6then39
  44. 43 print"[147]primzahlen von 0 - ";a$
  45. 44 print"2  3  ";
  46. 45 n=5
  47. 46 w=sqr(n)
  48. 47 fork=3towstep2
  49. 48 i=int(n/k)
  50. 49 ifi*k-n<0then51
  51. 50 goto53
  52. 51 nextk
  53. 52 printn;
  54. 53 n=n+2
  55. 54 ifval(a$)-n>0then46
  56. 55 wait203,63:goto39
  57. 56 print"[147]";:forw=0to119:print" ";:next
  58. 57 print"[145][145]berechnung des kgv von 2 zahlen"
  59. 58 print"zahl a:";:gosub6:ifasc(a$)>64andasc(a$)<71then56
  60. 59 c=val(a$):ifc=0then21
  61. 60 print"zahl b:";:gosub6:ifasc(a$)>64andasc(a$)<71then56
  62. 61 d=val(a$)
  63. 62 x=c:y=d
  64. 63 gosub68
  65. 64 print"[147]das kgv von ";c;"und ";d;"ist"
  66. 65 print
  67. 66 printc*d/g
  68. 67 wait203,63:goto56
  69. 68 q=int(x/y)
  70. 69 r=x-q*y
  71. 70 ifr=0thengoto73
  72. 71 x=y:y=r
  73. 72 goto68
  74. 73 g=y
  75. 74 return
  76. 75 print"[147]";:forw=0to119:print"[158] ";:next
  77. 76 print"[158][145][145]berechnung des ggt von 3 zahlen"
  78. 77 print"zahl a:";:gosub6:f=val(a$):ifasc(a$)>64andasc(a$)<71then75
  79. 78 print"zahl b:";:gosub6:g=val(a$):ifasc(a$)>64andasc(a$)<71then75
  80. 79 print"zahl c:";:gosub6:h=val(a$):ifasc(a$)>64andasc(a$)<71then75
  81. 80 x=f:y=g
  82. 81 gosub87
  83. 82 x=i:y=h
  84. 83 gosub87
  85. 84 print"[147]der ggt von";f ;g ;h ;"ist"
  86. 85 print"";i
  87. 86 wait203,63:goto75
  88. 87 q=int(x/y)
  89. 88 r=x-q*y
  90. 89 ifr=0thengoto92
  91. 90 x=y:y=r
  92. 91 goto87
  93. 92 i=y
  94. 93 return
  95. 94 print"[147]";:forw=0to119:print" ";:next
  96. 95 print"[145][145]faktorenzerlung von 2 zahlen"
  97. 96 goto97
  98. 97 print"zahl a : ";:gosub6:j=val(a$):ifasc(a$)>64andasc(a$)<71then94
  99. 98 print"zahl b : ";:gosub6:k=val(a$):ifasc(a$)>64andasc(a$)<71then94
  100. 99 a1=j:b1=k:l=j
  101. 100 print"[147]":gosub106:l=k
  102. 101 print"":gosub106:goto111
  103. 102 r=j-k*int(j/k)
  104. 103 ifr=0then105
  105. 104 j=k:k=r:goto102
  106. 105 return
  107. 106 print"faktoren von "l""
  108. 107 form=2tol-1
  109. 108 ifl/m>int(l/m)then110
  110. 109 printm";";
  111. 110 nextm:print:print:return
  112. 111 wait203,63:goto94
  113. 112 print"[147]";:forw=0to119:print"[156] ";:next
  114. 113 print"[156][145][145]primfaktorenzerlegung von 2 zahlen"        "
  115. 114 [153]"zahl a:";:[141]6:n[178][197](a$):[139][198](a$)[177]64[175][198](a$)[179]71[167]112
  116. 115 [153]"zahl b:";:[141]6:o[178][197](a$):[139][198](a$)[177]64[175][198](a$)[179]71[167]112
  117. 116 [153]
  118. 117 [153]"load":[141]119:n[178]o
  119. 118 [153]"":[141]119:[137]131
  120. 119 [153]"primfaktoren von "n":":
  121. 120 [153]
  122. 121 k[178]1
  123. 122 k[178]k[170]1
  124. 123 [139]k[172]k[177]n[167]128
  125. 124 [139]n[173]k[177][181](n[173]k)[167]122
  126. 125 [153]k;
  127. 126 n[178]n[173]k
  128. 127 [137]121
  129. 128 [153]n
  130. 129 [153]
  131. 130 [142]
  132. 131 [146]203,63:[137]112
  133. 132 z1[178]0:[153]"load";:[129]w[178]0[164]119:[153]"open ";:[130]
  134. 133 [153]"openononzahlenumwandlung"
  135. 134 cz[178]12:cs[178]5:[141]180
  136. 135 [153]"1 dezimal ---> beliebige basis"
  137. 136 cz[178]13:cs[178]5:[141]180
  138. 137 [153]"2 beliebige basis ---> dezimal"
  139. 138 cz[178]14:cs[178]5:[141]180
  140. 139 [161]c$
  141. 140 [139]c$[178]"*"[167]21
  142. 141 [139]c$[178]"1"[167]144
  143. 142 [139]c$[178]"2"[167]159
  144. 143 [137]139
  145. 144 z1[178]0:[153]"loaddezimal ---> beliebige basis <= 16 "
  146. 145 y$[178]"0123456789abcdef"
  147. 146 [153]"basis       : ";:[141]6:g[178][197](a$):[139][198](a$)[177]64[175][198](a$)[179]71[167]144
  148. 147 [139]g[179][178]1[176]g[177]16[167]144
  149. 148 [153]"dezimalzahl : ";:[141]6:n[178][197](a$)
  150. 149 z$[178]"":[139][198](a$)[177]64[175][198](a$)[179]71[167]144
  151. 150 [153]"ergebnis    : ";
  152. 151 [129]i[178]0[164]255
  153. 152 r[178]n[171]g[172][181](n[173]g)
  154. 153 z$[178][202](y$,r[170]1,1)[170]z$
  155. 154 n[178][181](n[173]g)
  156. 155 [139]n[178]0[167]157
  157. 156 [130]i
  158. 157 [153]z$;"              "
  159. 158 [146]203,63:[137]144
  160. 159 z1[178]0:[153]"loadzahl mit basis <=16 ---> dezimalzahl "
  161. 160 y$[178]"0123456789abcdef"
  162. 161 [153]"basis   : ";:[141]6:g[178][197](a$):[139]g[179]5[167]z1[178]1
  163. 162 [139]g[179][178]1[176]g[177]16[167]159
  164. 163 [139][198](a$)[177]64[175][198](a$)[179]71[167]159
  165. 164 [153]"zahl    : ";:[141]6:z$[178]a$
  166. 165 [129]w[178]1[164][195](z$):u$[178][202](z$,w,1):u[178][197](u$):[139]u[177]g[171]1[167]159
  167. 166 p1[178][198]([202](z$,w,1)):[139]p1[179]71[175]p1[177]64[167]p1[178]p1[171]55:[139]p1[177]g[171]1[167]159
  168. 167 [130]
  169. 168 z1[178]0:[153]"dezimal :";
  170. 169 n[178]0
  171. 170 [129]i[178]1[164][195](z$)
  172. 171 t$[178][202](z$,i,1)
  173. 172 [129]k[178]1[164][195](y$)
  174. 173 [139]t$[179][177][202](y$,k,1)[167]176
  175. 174 n[178]n[172]g[170]k[171]1
  176. 175 [137]177
  177. 176 [130]k
  178. 177 [130]i
  179. 178 [153]n;"cmd                          "
  180. 179 [146]203,63:[137]159
  181. 180 cz[178]1024[170]40[172]cz
  182. 181 [151]209,cz[175]255
  183. 182 [151]210,cz[173]256
  184. 183 [151]211,cs
  185. 184 [142]
  186.